home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / demos / demo.g < prev    next >
Text File  |  1996-10-28  |  3KB  |  160 lines
  1. G4C
  2.  
  3. ; This is the main Demo file, where the demo programs are set out and you
  4. ; can choose which one you want to run.
  5.  
  6. WinBig -1 -1 290 155 "Demos for Gui4Cli"
  7. WinType 11110001
  8. WinSmall 0 -1 253 116
  9. ;UseTopaz
  10. WinBackground ICON GUIs:info/Bgnds/Bgnd1 0  ; Icon background
  11.  
  12. BOX 0 0 0 0 IN ICONDROP                     ; a window sized box 
  13.  
  14. CText 15  11 "Scripts" DEFAULT 8 2 3 000             ; NEW mask argument!
  15. CText 100 11 "Programs Needed" DEFAULT 8 2 3 000
  16. CText 15 115 "ARexx based scripts" DEFAULT 8 2 3 000
  17.  
  18.  
  19. xOnRMB
  20. Status
  21.  
  22. xOnLoad
  23. GuiOpen demo.g
  24. GuiLoad GUIs:Demos/wait.g
  25. guiload guis:G4C/Rtn/Routines.g
  26.  
  27. xAPPICON 0 0 guis:Demos/calc.gc DEMO.g dem_icon OFF
  28. GadID 10
  29. if $dem_icon > " "
  30.    setvar rtn_var $dem_icon
  31.    setvar dem_icon ""
  32.    gosub routines.g ViewFile
  33. else   
  34.    GuiOpen demo.g
  35. endif
  36.  
  37. xONOPEN
  38. SetGad demo.g 10 OFF
  39.  
  40. xONCLOSE
  41. SetGad demo.g 10 ON
  42.  
  43. ;----------------> Calculator
  44.  
  45. xButton 10 15 80 14 "Calc"
  46. Update demo.g 1 "Loading..."
  47. GuiLoad GUIs:Demos/calc.gc
  48. GuiOpen calc.gc
  49. Update demo.g 1 "c:Eval command"
  50.  
  51. TEXT 100 15 150 14 "c:Eval command" 20 NOBOX
  52. GadID 1
  53.  
  54. xButton 240 15 40 14 "Info"
  55. SetVar dglvfile GUIs:Demos/Calc.gc
  56. Guiload guis:demos/lister.g
  57.  
  58.  
  59. ;----------------> MultiMedia
  60.  
  61. xButton 10 30 80 14 "MMedia"
  62. Update  demo.g 2 "Loading..."
  63. GuiLoad GUIs:Demos/MMedia.gc
  64. Update  demo.g 2 "See info ->"
  65. GuiOpen MMedia.gc
  66.  
  67. TEXT 100 30 150 14 "See info ->" 50 NOBOX
  68. GadID 2
  69.  
  70. xButton 240 30 40 14 "Info"
  71. SetVar dglvfile GUIs:Demos/MMedia.gc
  72. Guiload guis:demos/lister.g
  73.  
  74. ;----------------> Lock
  75.  
  76. xButton 10 45 80 14 "Lock"
  77. Update demo.g 3 "Loading..."
  78. GuiLoad GUIs:Demos/Lock.gc
  79. Update demo.g 3 "None"
  80.  
  81. TEXT 100 45 150 14 "None" 20 NOBOX
  82. GadID 3
  83.  
  84. xButton 240 45 40 14 "Info"
  85. SetVar dglvfile GUIs:Demos/Lock.gc
  86. Guiload guis:demos/lister.g
  87.  
  88. ;----------------> Gui4Cli
  89.  
  90. xButton 10 60 80 14 "Cli Gui"
  91. Update  demo.g 4 "Loading..."
  92. GuiLoad GUIs:Demos/Cli.gc
  93. GuiOpen cli.gc
  94. Update demo.g 4 "None"
  95.  
  96. TEXT 100 60 150 14 "None" 20 NOBOX
  97. GadID 4
  98.  
  99. xButton 240 60 40 14 "Info"
  100. SetVar dglvfile GUIs:Demos/Cli.gc
  101. Guiload guis:demos/lister.g
  102.  
  103. ;----------------> TextFile Reader
  104.  
  105. xButton 10 75 80 14 "Reader"
  106. Update  demo.g 5 "Loading..."
  107. GuiLoad GUIs:Demos/read.gc
  108. Update demo.g 5 "None"
  109.  
  110. TEXT 100 75 150 14 "None" 20 NOBOX
  111. GadID 5
  112.  
  113. xButton 240 75 40 14 "Info"
  114. SetVar dglvfile GUIs:Demos/read.gc
  115. Guiload guis:demos/lister.g
  116.  
  117. ;----------------> LHA pack/unpack
  118.  
  119. xButton 10 90 80 14 "LhA"
  120. Update  demo.g 5 "Loading..."
  121. GuiLoad GUIs:Demos/LHA.gc
  122. Update demo.g 8 "c:LhA"
  123.  
  124. TEXT 100 90 150 14 "c:LhA" 20 NOBOX
  125. GadID 8
  126.  
  127. xButton 240 90 40 14 "Info"
  128. SetVar dglvfile GUIs:Demos/LHA.gc
  129. Guiload guis:demos/lister.g
  130.  
  131. ;----------------> CedBar
  132.  
  133. xButton 10 120 80 14 "Ced Bar"
  134. Update  demo.g 6 "Loading..."
  135. GuiLoad GUIs:Demos/CED/CedBar.gc
  136. Update  demo.g 6 "c:Ced (CygnusEd)"
  137.  
  138. TEXT 100 120 150 14 "c:Ced (CygnusEd)" 20 NOBOX
  139. GadID 6
  140.  
  141. xButton 240 120 40 14 "Info"
  142. SetVar dglvfile GUIs:Demos/CED/CedBar.gc
  143. Guiload guis:demos/lister.g
  144.  
  145. ;----------------> GedBar
  146.  
  147. xButton 10 135 80 14 "Ged Bar"
  148. Update  demo.g 7 "Loading...."
  149. GuiLoad GUIs:Demos/GED/GedBar.gc
  150. Update demo.g 7 "c:Ed (GoldEd)"
  151.  
  152. TEXT 100 135 150 14 "c:Ed (GoldEd)" 20 NOBOX
  153. GadID 7
  154.  
  155. xButton 240 135 40 14 "Info"
  156. SetVar dglvfile GUIs:Demos/GED/GedBar.gc
  157. Guiload guis:demos/lister.g
  158.  
  159.  
  160.